home *** CD-ROM | disk | FTP | other *** search
/ BBS Toolkit / BBS Toolkit.iso / rbbs_pc / aed243a.zip / UPGRADE3.BAT < prev    next >
DOS Batch File  |  1990-06-10  |  6KB  |  267 lines
  1. echo off
  2.  
  3. echo RBBS batch file to upgrade RBBS v17.3x with .MRGs using QB3.0
  4. if %1?==? goto Usage
  5. if %2?==? goto Usage
  6. goto Start
  7.  
  8. :Usage
  9. echo Usage: UPGRADE xxxx [Y][N] [/R]
  10. echo .
  11. echo        where xxxx is the upgrade thingie to add to the end of the
  12. echo        MRG filenames.  Add the Y switch if you want to compile
  13. echo        the upgraded files, or N to skip the compile.  Add the
  14. echo        /R if you only want to do RBBS (not config).
  15. echo .
  16. echo    Ex: UPGRADE 173B Y to upgrade v17.3A to v17.3B & compile
  17. goto End
  18.  
  19. :Start
  20.  
  21. if not exist C:\QB3\QB.EXE goto NoQB
  22. REM if not exist C:\QB3\LINK.EXE goto NoLINK
  23. if not exist C:\QB3\BLED.EXE goto NoBLED
  24. if not exist C:\QB3\BCOM30.LIB goto NoBCOM
  25.  
  26. if not exist RBBS-PC.BAS goto NoPC
  27. if not exist RBBSSUB1.BAS goto NoSUB1
  28. if not exist RBBSSUB2.BAS goto NoSUB2
  29. if not exist RBBSSUB3.BAS goto NoSUB3
  30. if not exist RBBSSUB4.BAS goto NoSUB4
  31. if not exist RBBSSUB5.BAS goto NoSUB5
  32. if not exist RBBS-VAR.BAS goto NoRVAR
  33.  
  34. if %3?==/R? goto ChkOBJ
  35. if %3?==/r? goto ChkOBJ
  36.  
  37. if not exist CONFIG.BAS goto NoCNFG
  38. if not exist CNFG-SUB.BAS goto NoCSUB
  39. if not exist CNFG-VAR.BAS goto NoCVAR
  40.  
  41. :ChkOBJ
  42.  
  43. if %2?==N? goto DoneOBJ
  44. if %2?==n? goto DoneOBJ
  45.  
  46. if not exist LINK3.DAT goto NoDAT
  47. if not exist C:\QB3\GWCOM.OBJ goto NoGWCOM
  48.  
  49. if not exist 10-NET.OBJ goto No10
  50. if not exist ANSI17.OBJ goto NoANSI
  51. if not exist BDRIVEC2.OBJ goto NoBD
  52. if not exist FOSSCOMM.OBJ goto NoFOSS
  53. if not exist GIVEBK31.OBJ goto NoGIVE
  54. if not exist PC-NET.OBJ goto NoPCNET
  55. if not exist QBARCV6.OBJ goto NoQBARCV
  56. if not exist RBBSDV.OBJ goto NoDV
  57. if not exist RBBSML.OBJ goto NoML
  58. if not exist RBBSUTIL.OBJ goto NoUTIL
  59. if not exist XMODEM.OBJ goto NoXMOD
  60. if not exist RBBSHS.OBJ goto NoHS
  61. if not exist BASNOV.OBJ goto NoNOV
  62.  
  63. :DoneOBJ
  64.  
  65. if not exist ANSIED-3.BAS goto A0
  66. if not exist RBBS-VAR.MOD goto NoMOD
  67.  
  68. :A0
  69.  
  70. if exist CVAR%1.BAS del CNFG-VAR.BAS
  71. if exist CVAR%1.BAS ren CVAR%1.BAS CNFG-VAR.BAS
  72. if exist RVAR%1.BAS del RBBS-VAR.BAS
  73. if exist RVAR%1.BAS ren RVAR%1.BAS RBBS-VAR.BAS
  74.  
  75. if %3?==/R? goto A2
  76. if %3?==/r? goto A2
  77.  
  78. if not exist CNFG%1.MRG goto A1
  79. C:\QB3\BLED /B/L CONFIG.BAS CNFG%1.MRG CNFG%1.BAS
  80. del CONFIG.BAS
  81. del CNFG%1.MRG
  82. ren CNFG%1.BAS CONFIG.BAS
  83.  
  84. :A1
  85. if not exist CSUB%1.MRG goto A2
  86. C:\QB3\BLED /B/L CNFG-SUB.BAS CSUB%1.MRG CSUB%1.BAS
  87. del CNFG-SUB.BAS
  88. del CSUB%1.MRG
  89. ren CSUB%1.BAS CNFG-SUB.BAS
  90.  
  91. :A2
  92. if not exist R-PC%1.MRG goto A3
  93. C:\QB3\BLED /B/L RBBS-PC.BAS R-PC%1.MRG R-PC%1.BAS
  94. del RBBS-PC.BAS
  95. del R-PC%1.MRG
  96. ren R-PC%1.BAS RBBS-PC.BAS
  97.  
  98. :A3
  99. if not exist RSB1%1.MRG goto A4
  100. C:\QB3\BLED /B/L RBBSSUB1.BAS RSB1%1.MRG RSB1%1.BAS
  101. del RBBSSUB1.BAS
  102. del RSB1%1.MRG
  103. ren RSB1%1.BAS RBBSSUB1.BAS
  104.  
  105. :A4
  106. if not exist RSB2%1.MRG goto A5
  107. C:\QB3\BLED /B/L RBBSSUB2.BAS RSB2%1.MRG RSB2%1.BAS
  108. del RBBSSUB2.BAS
  109. del RSB2%1.MRG
  110. ren RSB2%1.BAS RBBSSUB2.BAS
  111.  
  112. :A5
  113. if not exist RSB3%1.MRG goto A6
  114. C:\QB3\BLED /B/L RBBSSUB3.BAS RSB3%1.MRG RSB3%1.BAS
  115. del RBBSSUB3.BAS
  116. del RSB3%1.MRG
  117. ren RSB3%1.BAS RBBSSUB3.BAS
  118.  
  119. :A6
  120. if not exist RSB4%1.MRG goto A7
  121. C:\QB3\BLED /B/L RBBSSUB4.BAS RSB4%1.MRG RSB4%1.BAS
  122. del RBBSSUB4.BAS
  123. del RSB4%1.MRG
  124. ren RSB4%1.BAS RBBSSUB4.BAS
  125.  
  126. :A7
  127. if not exist RSB5%1.MRG goto A8
  128. C:\QB3\BLED /B/L RBBSSUB5.BAS RSB5%1.MRG RSB5%1.BAS
  129. del RBBSSUB5.BAS
  130. del RSB5%1.MRG
  131. ren RSB5%1.BAS RBBSSUB5.BAS
  132.  
  133. :A8
  134. if not exist AED3FIX.MRG goto A9
  135. C:\QB3\BLED /B/L ANSIED-3.BAS AED3FIX.MRG AED3FIX.BAS
  136. del ANSIED-3.BAS
  137. del AED3FIX.MRG
  138. ren AED3FIX.BAS ANSIED-3.BAS
  139.  
  140. :A9
  141.  
  142. if %2?==N? goto End
  143. if %2?==n? goto End
  144.  
  145. :A10
  146. echo Compiling RBBS-PC.BAS...
  147. C:\QB3\QB RBBS-PC.BAS,/C:4096/O/E;
  148. echo Compiling RBBSSUB1.BAS...
  149. C:\QB3\QB RBBSSUB1.BAS,/X/O;
  150. echo Compiling RBBSSUB2.BAS...
  151. C:\QB3\QB RBBSSUB2.BAS,/O/E;
  152. echo Compiling RBBSSUB3.BAS...
  153. C:\QB3\QB RBBSSUB3.BAS,/O/E;
  154. echo Compiling RBBSSUB4.BAS...
  155. C:\QB3\QB RBBSSUB4.BAS,/O/E;
  156. echo Compiling RBBSSUB5.BAS...
  157. C:\QB3\QB RBBSSUB5.BAS,/O/E;
  158. if exist ANSIED-3.BAS echo Compiling ANSIED-3.BAS...
  159. if exist ANSIED-3.BAS C:\QB3\QB ANSIED-3.BAS,/X/O/E;
  160. if not exist ANSIED-3.OBJ LINK @LINK3.DAT
  161. if exist ANSIED-3.OBJ LINK @LINK3A.DAT
  162.  
  163. if %3?==/R? goto End
  164. if %3?==/r? goto End
  165.  
  166. echo Compiling CONFIG.BAS...
  167. C:\QB3\QB CONFIG.BAS,,NUL,/O/E/C:4096/S;
  168. echo Compiling CNFG-SUB.BAS...
  169. C:\QB3\QB CNFG-SUB.BAS,/O/E/C:4096/S;
  170. LINK CONFIG+CNFG-SUB+RBBSUTIL+FOSSCOMM+C:\QB3\GWCOM,,,C:\QB3\BCOM30.LIB/EXEPACK;
  171.  
  172. goto End
  173.  
  174. :NoQB
  175. echo Missing C:\QB3\QB.EXE... aborted
  176. goto End
  177. REM :NoLINK
  178. REM echo Missing C:\QB3\LINK.EXE... aborted
  179. REM goto End
  180. :NoBLED
  181. echo Missing C:\QB3\BLED.EXE... aborted
  182. goto End
  183. :No10
  184. echo Missing 10-NET.OBJ... aborted
  185. goto End
  186. :NoANSI
  187. echo Missing ANSI17.OBJ... aborted
  188. goto End
  189. :NoBD
  190. echo Missing BDRIVEC2.OBJ... aborted
  191. goto End
  192. :NoFOSS
  193. echo Missing FOSSCOMM.OBJ... aborted
  194. goto End
  195. :NoGIVE
  196. echo Missing GIVEBK31.OBJ... aborted
  197. goto End
  198. :NoPCNET
  199. echo Missing PC-NET.OBJ... aborted
  200. goto End
  201. :NoQBARCV
  202. echo Missing QBARCV6.OBJ... aborted
  203. goto End
  204. :NoDV
  205. echo Missing RBBSDV.OBJ... aborted
  206. goto End
  207. :NoML
  208. echo Missing RBBSML.OBJ... aborted
  209. goto End
  210. :NoUTIL
  211. echo Missing RBBSUTIL.OBJ... aborted
  212. goto End
  213. :NoXMOD
  214. echo Missing XMODEM.OBJ... aborted
  215. goto End
  216. :NoHS
  217. echo Missing RBBSHS.OBJ... aborted
  218. goto End
  219. :NoNOV
  220. echo Missing BASNOV.OBJ... aborted
  221. goto End
  222. :NoPC
  223. echo Missing original RBBS-PC.BAS... aborted
  224. goto End
  225. :NoSUB1
  226. echo Missing original RBBSSUB1.BAS... aborted
  227. goto End
  228. :NoSUB2
  229. echo Missing original RBBSSUB2.BAS... aborted
  230. goto End
  231. :NoSUB3
  232. echo Missing original RBBSSUB3.BAS... aborted
  233. goto End
  234. :NoSUB4
  235. echo Missing original RBBSSUB4.BAS... aborted
  236. goto End
  237. :NoSUB5
  238. echo Missing original RBBSSUB5.BAS... aborted
  239. goto End
  240. :NoRVAR
  241. echo Missing original RBBS-VAR.BAS... aborted
  242. goto End
  243. :NoCNFG
  244. echo Missing original CONFIG.BAS... aborted
  245. goto End
  246. :NoCSUB
  247. echo Missing original CNFG-SUB.BAS... aborted
  248. goto End
  249. :NoCVAR
  250. echo Missing original CNFG-VAR.BAS... aborted
  251. goto End
  252. :NoDAT
  253. echo Missing LINK3.DAT... aborted
  254. goto End
  255. :NoBCOM
  256. echo Missing C:\QB3\BCOM30.LIB... aborted
  257. goto End
  258. :NoMOD
  259. echo Missing RBBS-VAR.MOD (for ANSIED-3.BAS)... aborted
  260. goto End
  261. :NoGWCOM
  262. echo Missing C:\QB3\GWCOM.OBJ... aborted
  263. goto End
  264.  
  265.  
  266. :End
  267.